(widget-button-click): Save the selected window

around the code handling clicks on buttons.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index e28114eeadd956c380364be0d9d5f431976d4f3f..dc7e28b4ed12365b48645344c3d136a2bc7a2dd4 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -861,7 +861,7 @@ Recommended as a parent keymap for modes using widgets.")
            ;; Mouse click on a widget button.  Do the following
            ;; in a save-excursion so that the click on the button
            ;; doesn't change point.
-           (progn
+           (save-selected-window
              (save-excursion
                (mouse-set-point event)
                (let* ((overlay (widget-get button :button-overlay))